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4 14:22:11 DISKSVMSMASTER: CERF .SRCISBI.FOR;1 
Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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C 
C 
C 
Ce 
* ® 
Ce * 
Ce a 
Ce + 
Ce * 
0010 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0011 C* ONLY IN ACCORDANCE WITH TH TERM F SUCH LICENSE AND WITH THE * 
Baig C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
001 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0014 (C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
9015 Cs TRANSFERRED. 
® * 
0019 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0018 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
eid ‘s CORPORATION. * 
* ® 
0021 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
Boss C* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0094 ts : 
® * 
0025 Cee eR EERE EEE AEE REE AEE EAA ARERR EAA EEE EATER 
0026 C 
0027 
0028 SUBROUTINE SBI (LUN) 
0080 
00 C 
ot 3h 4 AUTHOR BRIAN PORTER CREATION DATE 27-AUG-1979 
0033 C++ hoa 
0034 C Functional desciption: 
0035 C 
0036 C Modified by: 
0037 C 
0038 C v03-003 EAD000i Elliott A. Drayton 18-Feb-1984 
st : Add UVAX=-1 support. 
0041 C v03-002 SAR0096 Sharon A, Reynolds, 20-Jun-1983 
poe C Changed the carriage control in the ‘format’ statements 
ob : for use with ERF. 
$048 C v03-001 BP0001 _ Brian Porter, 05-APR-1982 
0046 C Corrected sbi alert bug. 
0047 (ee 
0048 (-- 
0049 
0050 
0051 INCLUDE *SRC$:MSGHDR.FOR /NOLIST' 
0110 INCLUDE *SRC$:SYECOM.FOR /NOLIST' 
it 
0239 
0240 
0241 
0262 
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BYTE 
INTEGER#4 
INTEGER®4 
INTEGER®4 
INTEGER®4 
INTEGER*®4 
INTEGER®4 
INTEGER®4 
INTEGER*4 
INTEGER*4 
integer*4 
integers4 
INTEGER#4 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
equivalence 
equivalence 
integer*4 
equivalence 
PARAMETER 
integere4 
logical*! 


1 

io. 9:28:09 
LUN 
SBI_FAULT 
SB1_ COMP 
SB1_MAINT 
SBI_ERR 
$B1_TO 
$1L0(0:15) 
SBI _REGA(0:15) 
ERROR_PC_780 
ERROR_PSL_780 
error_pc_750 
error_psl_750 
FIELD 
(SBI_FAULT,EMB(16)) 
(SB1_COMP,EMB(20)) 
(SBI_MAINT,EMB(24)) 
(SB1_ERR,EMB(28)) 
(SB1_TO,EMB(32)) 
(SILO,EMB(36)) 
(SBI _REGA,EMB(100)) 
(ERROR_PC_780,EMB(164)) 
(ERROR_PSL_780,EMB(168)) 
(error_pc_750,emb(16)) 
(error_psl_750,emb(20)) 
memory_registers_uv1(0:4) 
(memory_registers_uv1(0),emb(16)) 
ASYNC_WRITE = 7 
compress4 
diagnostic_mode 
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$B1 16-Sep-1984 00:28:09 VAX-11 FORTRAN V3.4-56 age 3 
eae 00:5 211 DI SKSVMSMASTER: CERF .SRCISBI .FOR: 1 ° 
po 
4 CALL FRCTOF (LUN) 
call header (lun) 
c 
0 C 11/780, 782, 785 support 
C 
if ¢ 
1 Llib 
, =O 
1 LibSextzv(24,8,emb$l_hd_sid) .eq. 1 
1) then 


if Cemb$w_hd_entry .eq. '07'x) then 
cots Logger (lun,*ASYNCHRONOUS WRITE') 
else 


. 
| 
| 

Sextzv(24,8,emb$l_hd_sid) .eq. 255 

call logger (lun,*SBI FAULT’) 

endif 


3 call Linchk (lun,2) 
write(lun,10) error pc 780 
10 format(/" ',t8,"ERROR PC',t24,28.8) 

3 call vaxpsl (lun,error_psl_780) 
a3 diagnostic_mode = .false. 
$37 if Ciand(sbi_maint,'f05ff900'x) .ne. 0) diagnostic_mode = .true. 
tH if (.not. diagnostic_mode) then 
339 CALL SBI_FAULTREG (LUN,SBI_FAULT) 
339 CALL SBI_COMPARATOR (LUN,SBI_COMP) 
$3 CALL SBI_MAINTENANCE (LUN,SBI_MAINT) 
38 CALL SBI_ERROR (LUN,SBI_ERR) 
345 CALL SBI_TIMEOUT (LUN,SBI_TO) | 
<8 else | 
34 

368 call Linchk (Llun,6) | 
336 write(lun,28) sbi_fault,sbi comp,sbi_maint,sbi_err,sbi_to 

351-28 format(’ '.t8,'SBIFS’,t24,28.8,/, | 

3 1 tB. | sBrst »€24,28.8./, 

5 1 t8,*SBIMT',t24,28.8,/, 

54 1 t46, "DIAGNOSTIC MODE’. /, 

55 1 8, 41 ees es /, 

56 1 tBl"SBITA',t24,28.85 


| 1 
SB1 1B Sep-1984 00:28:09  VAX"11 FORTRAN V3.4-56 ° P 
| Been 1aBe 255554) NIEKSUMGRASTENCEEAE Secasez.ror:1 2% 


endif 

if DS eaten COMP,"A0000000'X) .NE. 0 

: JIAND (SBI -FAULT,"10000'°X) .NE. 0) THEN 
if (.not. diagnostic_mode) then 

CALL LINCHK (LUN,3) 
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0 = 
0 WRITE(LUN, 30) | 
° 30 FORMAT(/" *,"SBI SILO LOCKED, DETAILED SUMMARY',/) 

8 4 DO 50,1 = 0,15 | 
O36 CALL SBI_SILO (LUN,SILO(I)) 

0374 50 CONTINUE | 
0375 else 
0376 

0377 CALL LINCHK (LUN,3) 

0378 

0379 waite CL 52) 

Bene 52 FORMAT(/* *,*SBI SILO LOCKED’,/) 

O38¢ do 54,i = 0,15 
038 
0384 call Linchk (lun,1) 

0385 

0386 write(lun, 53) silo(i) 

0387 53 format(' §,t24,28.8) 

0388 

0389 54 continue 

0390 endif 

0391 ENDIF 

B44 

039 DO 80,1 = 0,15 

0394 

3444 IF (SBI_REGACI) .NE. 0) THEN 

0397 CALL LINCHK (LUN, 2) 

Dene 


55 ORMAT(/* *,*ADAPTER TR# *,I<compress4 (i)>,*.") 
CALL CLASSIFY (LUN,SBI_REGA(I)) 
ENDIF 


FERRE 


SRLESRELLS 


CONT INUE 


Cc 
c 11/750 support 
c 


else if (LibSextzv(24,8,emb$i_hd_sid) .eq. 2) then 
if (emb$Sw_hd_entry .eq. ‘'O7'x) then 
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WRITECLUN, $5) 1 
} 
i 
| 
| 
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ENTRY B_SBI (LUN) 


call header (lun) 


cs 


o 
wn— 


if ( 

1 LibSextzv(24,8,emb$l_hd_sid) .eq. 255 
oor » 

1 LibSextzv(24,8,emb$l_hd_sid) .eq. 1 

1) then 


ae 


if (emb$Sw_hd_entry .eq. ‘O7'x) then 


9 call logger (lun,*ASYNCHRONOUS WRITE") 
0 ELSE 


US 


0414 $ 
0415 calt logger (lun,"WRITE BUS ERROR") 3 
0416 endif 3 
0417 3 
Rt write(lun,10) error_pc_750 : 
Rese call vaxpsl (lun,error_psl_750) 3 
04 ; ¢ ; 
04 c UVAX=1 support 3 
gas 
0426 else if (LibSextzv(24,8,emb$l_hd_sid) .eq. 7) then 3 
8 ; 
$0 call logger (Lun, "ASYNCHRONOUS WRITE") : 
3 do 85,i = 1,16 
te if (LibSextzv(15,1,memory_registers_uv1(i)) .eq. 1) then ; 
36 call memory_register_uv1 (lun,memory_registers_uv1) : 
37 endif 3 
38 3 
39 85 continue g 
40 : 
41 endif 3 
+g 3 

4 c ; 
44 Cc The IF=THEN-ELSE must be e (panded at this point : 
45 c to provide additional CPU ‘ASYNCHRONOUS WRITE : 
46 c ERROR'' support. 3 
47 Cc 3 
48 ; 
49 endif : 
50 3 
51 RETURN $ 
26 3 

5 3 
54 3 
5 3 
28 ; 
58 3 
59 : 
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| 
i 
if Cemb$w_hd_entry .eq. 7) then 
| 
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] 
Page 6 
| 
0471 | 
Bore call logger (lun,'SBI FAULT’) 
oh ENDIF 
oh else if (LibSextzv(24,8,emb$l_hd_sid) .eq. 2) then | 
oh 4 if (emb$w_hd_entry .eq. ‘07'x) then 
0479 call logger (lun,*WRITE BUS ERROR') 
0480 endif 
ee endif 
83 RETURN 
0484 
0485 END 
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PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 961 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 94 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
SLOCAL 24 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB 512 OVR REL GBL SHR NOEXE RD WRT LONG 
4 SYECOM 44 PIC QVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 2135 
ENTRY POINTS 
Address Type Name Address Type Name 
0-0000032F B_SBI 0-00000000 SBI 
VARIABLES 
Address Type Name Address Type Name 
$=9000001 L*1 CP_11750 4-00000011 L*1 CP_11780 
4 15 Lei CP-11722 40000 014 L*4 CRYPTK_FL 
4-0000000D I*4 DEV_CHAR ¢- 0000000 L*i DIAGNOSTIC MODE 
$-pootonee I*4 EMBSL_HD_SID ms 44 44 if EMBSW_HD 
“OOO0000E I*2 EMBSW_HD_ERRSEQ 444 it; L*1 END_VALUE 
4 1D Ll F_FCAG” - 00010 I*4 ERR ROR R_PC_750 
3 AS I*4 ERROR_PC_780 -0 inet I*4 ERROR-PSC_750 
AS I*4 ERROR PSC_780 - Bee 004 I*4 FIELD™ 
4 L*4 FORMS -00 bo : I*4 | 
4 C L*l LINES 4- 8 0 I*4 LSTLUN 
AP @t*l LUN 4-0000001F I*4 MAILBOX_CHANNEL | 
2-00000000 Ite" RECENT i: 0000028 Ted RECORD SIZE | 
® a 
3-00000014 I*4 SBI_COMP 3-0000001C I*4 SBI_ERR | 
| 


ee = 
J 1 
$81 16-Sep-1984 9 -VAK=11 FORTRAN V3.4-56 Page 7 ST 
g-geP 71984 90 35: 9 DISKSVMSMASTER: LER RF ..SRCISBI.FOR;1 ° | vO: 
-00000010 I*4 SBI_FAULT 3-0000001 1*4 SBI_MAINT 
3-09000020 I*4 SBI-TO £-09900019 Li VALTD CLASS | 
4-0000001A L*1 VALTD_CPU 4-00000018 Li VALIDZENTRY | 
4-0000001C L*1 VALID-TYPE 4-00000018 L*1 VOLUME_OUTPUT 
ARRAYS 
Address Type Name Bytes Dimensions 
-00000000 is] ce eo ’ + fa 
-09000078 1*4 SERORT™ REGISTERS _Uv1 2 (8a 
4 I*4 SBI_REGA 64 (0:15) 
-00000024 [4 64 (0:15) 
LABELS 
Address’ Label Address Label Address Label Address’ Label Address Label Address’ Label 
1-00000049 10° 1-Q000005F 28' 1-000000C1 30° wt 50 1-Q000000EA 52' 1-00000101 53° 
ee 54 1-0000010A 55° * 80 tt 85 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
CLASSIFY 1*4 aeatie FRCTOF 
HEADER I*4 LIBSEXTZV LINCHK 
LOGGER MEMORY _REGISTER_UV1 SB _ COMPARATOR 
SB1_ERROR SB1_FAOLTREG SBI- MAINTENANCE 
SBI-SILO SBI~ TIMEOUT VAXPSL 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:SB1/0BJ=0BJ$:SBI MSRC$:SBI 


REAP vom) 


X ,NOSOURCE 
/SHOW= (NOPREPROCESSOR ,NOINCLODE ,MA 
/F77 /NOG_FLOATING /14 COPTIMITE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 3.86 seconds 
Elapsed Time: 11.88 seconds 
Page Faults: 179 

Dynamic Memory: 196 pages 
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